home *** CD-ROM | disk | FTP | other *** search
- on exitFrame
- global NewScreenID, athsndflag, stasndflag, BaseChannel, LastChannel, NumChannels, OverChannel, GfxChannel, SeqChannel, DVidChannel, CurtainChannel, AllScreen, gPathSep, PauseFor, first, ScreenCast
- set NewScreenID to 1
- preLoadCast(41)
- cursor(4)
- set athsndflag to 0
- set stasndflag to 0
- set BaseChannel to 10
- set LastChannel to 22
- set NumChannels to LastChannel - BaseChannel + 1
- set OverChannel to 25
- set GfxChannel to 30
- set SeqChannel to 33
- set DVidChannel to 34
- set CurtainChannel to 39
- set AllScreen to []
- if the machineType < 256 then
- set gPathSep to ":"
- else
- set gPathSep to "\"
- end if
- set ScreenInfo to [100, 0, 0, 0]
- append(ScreenInfo, [109, 110, 121, ["END"]])
- append(ScreenInfo, [111, 112, 122, [["PLAY", "COMMNT"], "END"]])
- append(ScreenInfo, [113, 114, 123, ["END"]])
- append(ScreenInfo, [17, 17, 18, ["END"]])
- append(ScreenInfo, [124, 125, ["QUIT"]])
- AddScreen(ScreenInfo)
- set PauseFor to 60
- set first to 1
- set ScreenCast to -1
- set the volume of sound 1 to 255
- puppetSound("HOMSTMON")
- end
-
- on AddScreen newScreenInfo
- global AllScreen
- append(AllScreen, newScreenInfo)
- end
-